R Markdown

This show the surface of a volcano in a 3D plot.

p <- plot_ly(z= ~volcano) %>% add_surface(
        contours=list(
                z= list(
                        show=TRUE,
                        usecolormap=TRUE,
                        highlightcolor="#ff0000",
                        project=list(z=TRUE)
                )
        )
) %>%
        layout(
                scene=list(
                        camera=list(
                                eye= list(x=1.87, y=0.88, z=-0.64)
                        )
                )
        )
p